unit uEditSetup;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, ComCtrls;

type
  TfrmEditSetup = class(TForm)
    btnCancel: TBitBtn;
    btnOK: TBitBtn;
    edtCommand: TEdit;
    edtParam: TEdit;
    grp1: TGroupBox;
    lbl1: TLabel;
    lbl2: TLabel;
    lbl3: TLabel;
    edt_Key: THotKey;
    Label1: TLabel;
    edt_Name: TEdit;
    Label2: TLabel;
    edt_aliasName: TEdit;
    procedure btnOKClick(Sender: TObject);
  end;

var
  frmEditSetup: TfrmEditSetup;

implementation

{$R *.dfm}

procedure TfrmEditSetup.btnOKClick(Sender: TObject);
begin
  ModalResult := mrNone;

  if Trim(edt_Name.Text) = '' then exit;

  ModalResult := mrOk;
end;

end.
